home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / auto-r1g / browser2.frm next >
Text File  |  1999-08-27  |  6KB  |  208 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form frmBrowser 
  5.    Caption         =   "Browser Form"
  6.    ClientHeight    =   4395
  7.    ClientLeft      =   60
  8.    ClientTop       =   630
  9.    ClientWidth     =   5880
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4395
  12.    ScaleWidth      =   5880
  13.    Begin MSComctlLib.StatusBar sta 
  14.       Align           =   2  'Align Bottom
  15.       Height          =   270
  16.       Left            =   0
  17.       TabIndex        =   1
  18.       Top             =   4125
  19.       Width           =   5880
  20.       _ExtentX        =   10372
  21.       _ExtentY        =   476
  22.       Style           =   1
  23.       _Version        =   393216
  24.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  25.          NumPanels       =   1
  26.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  27.          EndProperty
  28.       EndProperty
  29.    End
  30.    Begin SHDocVwCtl.WebBrowser wbr 
  31.       Height          =   1560
  32.       Index           =   0
  33.       Left            =   15
  34.       TabIndex        =   0
  35.       Top             =   375
  36.       Width           =   10920
  37.       ExtentX         =   19262
  38.       ExtentY         =   2752
  39.       ViewMode        =   1
  40.       Offline         =   0
  41.       Silent          =   0
  42.       RegisterAsBrowser=   0
  43.       RegisterAsDropTarget=   1
  44.       AutoArrange     =   -1  'True
  45.       NoClientEdge    =   0   'False
  46.       AlignLeft       =   0   'False
  47.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  48.       Location        =   ""
  49.    End
  50.    Begin SHDocVwCtl.WebBrowser wbr 
  51.       Height          =   4650
  52.       Index           =   1
  53.       Left            =   90
  54.       TabIndex        =   2
  55.       Top             =   2265
  56.       Width           =   9315
  57.       ExtentX         =   16431
  58.       ExtentY         =   8202
  59.       ViewMode        =   1
  60.       Offline         =   0
  61.       Silent          =   0
  62.       RegisterAsBrowser=   0
  63.       RegisterAsDropTarget=   1
  64.       AutoArrange     =   -1  'True
  65.       NoClientEdge    =   0   'False
  66.       AlignLeft       =   0   'False
  67.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  68.       Location        =   ""
  69.    End
  70.    Begin VB.Menu mnuFile 
  71.       Caption         =   "&File"
  72.       Begin VB.Menu mnuFileStart 
  73.          Caption         =   "&Start"
  74.       End
  75.       Begin VB.Menu mnuFileReset 
  76.          Caption         =   "&Reset"
  77.       End
  78.       Begin VB.Menu mnuFileBar1 
  79.          Caption         =   "-"
  80.       End
  81.       Begin VB.Menu mnuFileClose 
  82.          Caption         =   "&Close"
  83.       End
  84.    End
  85. End
  86. Attribute VB_Name = "frmBrowser"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. Option Explicit
  92. ' Browser.frm (Vb6) Mar 1999   Written by Mark Bevins Orion Studios  markb@orionstudios.com
  93. ' main form for Project "TwoWbr"
  94. ' Requires Project/References entry for
  95. '   "Microsoft HTML Object Library" (mshtml.dll)
  96. '=================================================================================
  97. ' Module-level Variables
  98. Private MARGINx2 As Long
  99. Private mVertUsedArea As Long
  100. Private WithEvents mFidelity As MSHTML.HTMLAnchorElement
  101. Attribute mFidelity.VB_VarHelpID = -1
  102. ' Module-level Constants
  103. Private Const MARGIN = 15
  104. Private Const WBR_START = 0
  105. Private Const WBR_LINK = 1
  106. Private Const IMG_SRC = "http://www.orionstudios.net/fidelity.gif" ' links to IMG_LINK
  107. Private Const IMG_NAME = "fidelity.gif" ' see wbr_DocumentComplete
  108. Private Const IMG_TITLE = " Click for Fidelity! "
  109. Private Const IMG_LINK = "http://www.orionstudios.com" '<--- Link to go to
  110. Private Const BLANK_PAGE = "about:<HTML><BODY BGCOLOR=gainsboro SCROLL=NO></BODY></HTML>"
  111. Private Const START_HTML _
  112.         = "<HTML>" _
  113.         & "<BODY BGCOLOR=lightskyblue SCROLL=NO>" _
  114.         & "<CENTER>" _
  115.         & "<A ID=idFidelity HREF=" & IMG_LINK & ">" _
  116.         & "<IMG SRC=" & IMG_SRC & " TITLE='" & IMG_TITLE & "'>" _
  117.         & "</A>" _
  118.         & "</CENTER>" _
  119.         & "</BODY>" _
  120.         & "</HTML>"
  121.  
  122. Private Sub Form_Load()
  123.  
  124.     With Me
  125.         .Caption = App.FileDescription
  126.         .Move 1200, 0, 9600, 8400
  127.     End With
  128.     MARGINx2 = MARGIN * 2
  129.     mVertUsedArea = MARGINx2 + sta.Height
  130.     With wbr(WBR_LINK)
  131.         .Visible = False
  132.         .Navigate BLANK_PAGE
  133.     End With
  134.     wbr(WBR_START).Navigate BLANK_PAGE
  135.     
  136. End Sub
  137.  
  138. Private Sub mnuFile_Click()
  139.  
  140.     mnuFileStart = (mFidelity Is Nothing)
  141.     
  142. End Sub
  143.  
  144. Private Sub mnuFileStart_Click()
  145.  
  146.     With wbr(WBR_LINK)
  147.         .Visible = False
  148.         .Navigate BLANK_PAGE
  149.     End With
  150.     With wbr(WBR_START)
  151.         .Navigate "about:" & START_HTML
  152.         .Visible = True
  153.     End With
  154.     
  155. End Sub
  156.  
  157.  
  158. Private Sub mnuFileReset_Click()
  159.  
  160.     With wbr(WBR_LINK)
  161.         .Visible = False
  162.         .Navigate BLANK_PAGE
  163.     End With
  164.     With wbr(WBR_START)
  165.         .Navigate BLANK_PAGE
  166.         .Visible = True
  167.     End With
  168.     
  169. End Sub
  170.  
  171. Private Sub mnuFileClose_Click()
  172.  
  173.     Unload Me
  174.     
  175. End Sub
  176.  
  177. Private Sub wbr_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant)
  178.     
  179.     If pDisp = wbr(index).Object Then
  180.         If InStr(1, URL, IMG_NAME, vbTextCompare) Then
  181.             Set mFidelity = wbr(index).Document.All.idFidelity
  182.         Else
  183.             Set mFidelity = Nothing
  184.         End If
  185.     End If
  186.  
  187. End Sub
  188.  
  189. Private Sub wbr_StatusTextChange(index As Integer, ByVal Text As String)
  190.  
  191.     sta.SimpleText = Text
  192.     
  193. End Sub
  194.  
  195. Private Function mFidelity_onclick() As Boolean
  196. '
  197. ' When IMG_SRC is clicked, use a second WebBrowser to navigate to the link
  198. '
  199.     mFidelity_onclick = False   ' cancel default behaviour
  200.     wbr(WBR_START).Visible = False  ' hide WebBrowser containing image
  201.     wbr(WBR_LINK).Visible = True
  202.     
  203.     DoEvents
  204.     wbr(WBR_LINK).Navigate IMG_LINK ' use a second WebBrowser to display linked page
  205.     
  206. End Function
  207.  
  208.